home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Tutorial Material / Zone Tutorial / Structure Examples / 4. Demo1a < prev    next >
Lisp/Scheme  |  1998-10-26  |  551b  |  35 lines
  1. ; demo1a - try compiling all combinations of mel & rhy.
  2. ; this version uses the compile-instrument function
  3.  
  4. (setq tonals 
  5.       (activate-tonality (chromatic c 4) (major c 4) (c maj maj7 2 4) 
  6.                          (b& min 7 1 3) (aeolian f 3)))
  7.  
  8. (setq mela '(a b c d))
  9. (setq melb '(a b = c = d))
  10.  
  11. (setq rhya '(1/16))
  12. (setq rhyb '(1/8 1/16 1/16 1/4 1/8 1/8))
  13.  
  14. (def-rhythm
  15.   solo rhya "---- --- - --- -" mela
  16. )
  17.  
  18. (def-tonality
  19.   solo tonals
  20. )
  21.  
  22. (def-zone
  23.   solo '(1/1 1/1 1/2 1/2 1/1)
  24. )
  25.  
  26. (compile-instrument-p "ccl;output:"  "demo1a"
  27.   solo
  28. )
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.